PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 


PP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


—— 


tt tt Ht tt St SH A HH A at HH Ht 
A a tH SH tH Ht 
tt tH SH Ht HH HHH 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
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PPPPPPPP AAAAAA SSSSSSSS_ WW WW RRRRRRRR III! UU UU NN NN SSSSSSSS : 
PPPPPPPP AAAAAA SSSSSSSS WW WW RRRRRRRR III! UU UU NN NN SSSSSSSS ; 
Pe PP AA Ss WW Ww RR RR II UU UU NN NN SS 5 
PP PP AA AA SS WW WwW RR RR II UU UU NN NN SS : 
PP PP AA AA SS WW Ww RR RR II UU UU NNNN NN SS é 
PP PP AA AA SS WW WW RR RR II UU UU NNNN NN SS ; 
PPPPPPPP AA AA SSSSSS ld WW RRRRRRRR II UU UU NN NN NN SSSSSS F 
PPPPPPPP AA AA SSSSSS RRRRRRRR II UU UU NN NN NN SSSSSS F 
PP AAAAASAAAA SS WW WW WW RR RR II UU UU NN NNNN SS H 
PP AAAAAAAAAA SS Ww WW RR RR II UU UU NN NNNN SS ; 
PP AA AA SS WwWW WwWWW RR RR II UU NN NN SS ueee F 
PP AA AA SS WWWW WwWWW RR RR II UU UU NN NN ss een F 
PP AA AA SSSSSSSS Wi Ww RR RR III! UUUUUUUUUU sNN NN SSSSSSSS wkue 3 
PP AA AA SSSSSSSS WW WW RR RR III! UUUUUUUUUU =sNN NN SSSSSSSS enna 3 
LL IIII11I SSSSSSSS ; 
LL III] SSSSSSSS 3 
LL II SS 3 
LL II SS ; 
LL II SS 3 
LL I] SS 3 
LL II SSSSSS 5 
LL II SSSSSS 3 
LL II SS F 
LL I] SS 3 
LL I] ss 3 
LL 11 ss 3 
LLLLLLLLLL III11I SSSSSSSS 3 
LLLLLLLLLL III SSSSSSSS : 
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1 
5 
4 
5 
; 
8 
9 
0 
1 
g 
4 
5 
6 
7 
8 
9 
0 
1 
5 
4 
5 
6 
7? 
8 
9 
0 
1 
5 
4 
5 
6 
7 
8 
9 
0 
1 
5 
4 
5 
6 
7 


MEWN (OO ONAUSWN OOO NOAOUSWN (OU ONOUS WN 


SOOOOCOOCOOSSOSOSOSSOSCOSOSOOOOSOSOOOOSOOOSOOOOOoOOoOOO 
CGOOSOOSSOSOSSSSSSSOSOSSOOOSOOOCOOOOOOOOOSOOOOOSoSoOS 
WANA NI AIP POPONINPININPIDINID 2 2 9 OS S| S DOO OOOCOCOCO 


WAG 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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an unsigned integer 14.28 =penn 1386 9g: 92:06 AX-11 Bliss-32 V4.0 


14-Sep-1984 
MODULE PASSWRITE_ UNSIGNED ( &2TITLE ‘Write an unatoner inte 
1b ENT = '1-002' 
= 


BEGIN 


VRE RARER AAA AAR REAR AEE 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


® 
® 
® 
® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
iw COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
it OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S HERESY © 
ie TRANSFERRED. * 
: ® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. * 

® 

® 

me 

*® 

® 

® 


'* DIGITAL ASSUMES NO RESPONSIBIL 
!® SOFTWARE ON EQUIPMENT WHICH IS N 


'@ 
VR RRR 
' 


ITY FOR THE USE OR RELIABILITY OF ITS 


Y 
NOT SUPPLIED BY DIGITAL. 


lee 
FACILITY: Pascal Language Support 


ABSTRACT: 


This module contains a procedure which writes an unsigned integer 
to a text 


ENVIRONMENT: User mode - AST reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
MODIFIED BY: 


! 1-001 - Original. SBL 1-April-1981 
} 1-002 - Make total-width a longword. SBL 30-June-1982 


PASRTL’S CIPASWRIUNS. if 231 


er' 
Pile: PACURIUNS.B32 Edit: $BL1002 
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PASSWRITE_UNSIG Write an unsigned integer 18- Sep-1984 AX-11 Bliss-32 v4.0 
1808 Declarations 8 ° 14- ~ep-1 7 95: 5 98 PASRTL’ SR ROIP PASWR tons. ago, 71 (2 


3 23 re | } XSBTTL ‘Declarations’ 

; 1 29 1 ! PROLOGUE DEFINITIONS: 

3 ¢ 23 ! ' 

: ¢ 0084 : REQUIRE ‘RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 
; $ 3118 1 

: 119 «#1 

; 8 0120 1 

3 59 0121 1 

: 60 8 ¢ 1 _— ROUTINE 

; 6«¢61 1 1 PASSWRITE_UNSIGNED: NOVALUE ! Write to textfile 
: 62 91 4 PASSWRITEV_UNSIGNED: NOVALUE; i Write to string 
; 664 01 § 1! 

3; 65 01 1 ! MACROS: 

:; 666 0128 1! 

3 67 0129 1! NONE 

: 68 0130 1! 

; 69 ate 1 ! EQUATED SYMBOLS: 

: 70 01 ; 1! 

ee a 0133 1! NONE 

. if Bie 1! 

c) F 0135 1 ! FIELDS: 

; 674 0136 1! 

; 0137 1! NONE 

: @ 0138 1! 

oe 0139 1 ! OWN STORAGE: 

; 678 0140 1! 

:; 79 0141 1! NONE 

; & 0142 1! 


| 
7 TABLE OF CONTENTS: 
| 
| 
| 
| 
| 
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PASSWRITE_UNSIG Write an unsigned integer 16-Sep-1984 02:27: AX-11 Bliss-32 V4.0-74 P 

002 PASSWRITE_UNSIGNED - Urite unsigned integer to 1 ~Sep-19 & 95:85:98 PASRTL.SRCJPASWRIUNS.B32;1 vi: (33 

: é 143 1 ZSBTTL "PASSWRITE_UNSIGNED = Write unsigned integer to textfile' : 
3 144 1 GLOBAL ROUTINE PASSWRITE UNSIGNED ( 3 
; 4 145 1 PFV: REF SPASSPFU_FILE_VARIABLE, ! File variable 5 
; 85 173 1 INTEGER ' Value to write : 
; 8 147 1 TOTAL_WIDTH: SIGNED, i Total field width ; 
:. = 108 1 ERROR ' Error unwind address 3 
; Hy b186 : ): NOVALUE = : 
: 90 018) 1! ; 
: 4! O16 ! FUNCTIONAL DESCRIPTION: : 
3 82 0135 ! ! This procedure writes an unsigned integer to the specified textfile. F 
; 95 O196 1 | CALLING SEQUENCE: ; 
: 97 0158 1! CALL PASSWRITE_UNSIGNED (PFV.mr.r, INTEGER.rlu.v, TOTAL_WIDTH.rl.v ; 
: ss 3122 : } TERROR. j.rJ) : 
i 100 O161 1 | FORMAL PARAMETERS: ; 
; 102 o168 1! PFV - The Pascal File Variable (PFV) passed by reference. 3 
: bt giee : } The structure of the PFV is defined in PASPFV.REQ. : 
; Ht B98 ' INTEGER - The integer to write. : 
: 107 O168 TOTAL_WIDTH - Optional. Total field width. ; 
; 1%} o179 ; ERROR - Optional. Address to unwind to if an error occurs. : 
; 111 0178 { IMPLICIT INPUTS: 3 
: 118 0174 1! NONE : 
3: 114 0175 1! 3 
: BE O18 ! IMPLICIT OUTPUTS: : 
: 117 0178 1! NONE : 
: 118 0179 1! 3 
: BY Big0 : ROUTINE VALUE: : 
> 121 0188 1! NONE ; 
; \$¢ 0185 1! 3 
; \¢? Bige } : SIDE EFFECTS: : 
F 125 0186 If the file is the standard file INPUT or OUTPUT, it is implicitly opened. : 
i 197 0188 1 | SIGNALLED ERRORS: 3 
> 129 0190 1 LINTOOLON - Line too Long ie. Ete ; 
: 130 B13) : : NEGWIDDIG = negative width or digits specification not allowed ; 
; 132 O18 1 i-- : 
: 13 194 1 3 
3: 134 195 BEGIN 3 
: 155 138 ; 
3 136 19 LOCAL 3 
s 1 198 FCB: REF SPASS$FCB_CONTROL_BLOCK, ! File control block 3 
: 138 0199 FIELD_WIDTH, !' Total width 5 


—_——_—_—__-_—__--------} 


PASSWRITE_UNSIG Write an unsigned integer 15-Sep-1984 03:27:06 AX-11 Oh iegase V4.0-74 Page 4 P 
1-002 PASSWRITE_UNSIGNED = Write unsigned integer to 14-Sep-1984 252: PASRTL.SRCJPASWRIUNS.B52;1 (3) 1 
; 139 60 INT_DIGITS ! Number of digits ‘ 
: 140 1 STRING: VECTOR C12, BYTE), i String for result ; 
> 141 8 DESCR: BLOCK (8, erTe ! String descriptor ; 
: | 0 CTRSTR_DESCR: BLOCK (8, BYTE], ! FAO Control string descriptor $ 
3 (14 0204 PFV_ADBR: VOLATILE, ! Enable argument 3 
3 144 0205 UNWIND_ACT: VOLATILE, ! Enable argument 3 
3 132 8 $6 ERROR_ADDR: VOLATILE; ! Enable argument : 
: 147 0208 BUILTIN : 
> 148 0209 ACTUALCOUNT; 3 
; 6149 0210 PF 
3 150 8 14 ENABLE : 
3 13) 8 \§ PASS$SSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler : 
; 13 0214 1+ : 
; «6154 0215 2 ! Get ERROR parameter, if present. 5 
: 155 0 18 le 3 
3; 156 021 : 
.. Tor 0218 IF ACTUALCOUNT () GEQU 4 : 
3; 158 0219 2 THEN ; : 
3 123 osso § ERROR_ADDR = .ERROR; ! Set unwind address : 
; «161 bs5§ 2 PFV_ADDR = PFV CPFVSR_PFV); ! Set PFV address : 
3 16g 0223 2 : 
; 0224 1+ : 
; 6164 0225 ! Validate PFV and get PFV. : 
> 165 0226 le : 
; 166 0227 § 3 
s 167 0228 PASSSVALIDATE_PFV (PFV CPFVSR_PFVIJ; FCB); 3 
3; 168 i394 2 3 
: 169 0230 '¢ : ; $ 
: 170 0231 ! Set unwind action to unlock file. 3 
. or O636 le Fs 
; 7 0233 2 3 
: 7 OSse 2 UNWIND_ACT = PASSK_UNWIND_UNLOCK; : 
: 174 0235 2 

: 175 0236 2 + 

: 176 0237 2 ! Do common initialization. 

.. Sry 0238 2 le 

; 178 0239 2 

5 HH asco PASSSINIT_WRITE (PFV CPFVSR_PFVJ, FCB CFCBSR_FCBJ; FCB); 

; «6181 bse§ '¢ 

3 ise 8S¢ ' Check for invalid width. 

s 1 0244 le 

> «(184 bee? 

3; «185 0246 IF .TOTAL_WIDTH LSS 0 

3 186 ogee 

; 248 SPAS$IO_ERROR (PASS$_NEGWIDDIG,0); 

: «188 0249 

3; 189 0250 '¢ 

3; 190 0251 ! Convert integer to text 

: «191 8 26 !- 

: 136 5 

3; «219 3 54 DESCR CDSC$W_LENGTH) = 12; 

3: 194 $22 DESCR 443, at a = DSC$K_CLASS_S; 

3; «6195 0256 DESCR COSC$B_DTYPE) = DSCSK_DTYPE_T; 
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PASSWRITE_UNSIG Write an unsigned integer 16-Sep-1984 02:27:0 AX-11 Bliss-32 V4.0-74 Pa 5 
808 PASSURITE UNSIGNED <Weite unsigned integer to ie-kep-1986 $3582:4 PASRTL.SRCIPASWRIUNS B32; 1 wi 

96 DESCR COSCSA_POINTER] = STRING; 

97 CTRSTR_DESCR Dsc$B CLASS] = DSCSK_CLASS_S; 

98 CTRSTR_DESCR LDSCSB_DTYPE) = DSCSK DIYPE_T: 

99 CTRSTR_DESCR LDSCSWLLENGTH) = XCHARCOUNT ('!UL"); 

Be CTRSTR_DESCR LDSCSA_POINTER] = UPLIT BYTE CtUL'S; 

4 e SFAO (CTRSTR_DESCR, ' Control — descriptor 

0 DESCR CDSCSW_LENGTH], ! Returned Length 

04 P DESCR ' Result descriptor 

'e4 INTEGER); ! Value to convert (Conversion can't fail) 

0 

0 


TH = . TOTAL WIDTH; 
S = .DESCR CDSC$W_LENGTH); 


+ 
See if field will fit in record. 
CIE yp wintn = MAX (.FIELD WIDTH, .DESCR COSCSW_LENGTH]); 


LOCAL 
EXTRA; ' Extra characters pest end of line 
pe RA pr EOS ES + .FIELD_WIDTH) - .FCB CFCBSA_RECORD_END); 


HEN 
ae SPASSIO_ERROR (PAS$_LINTOOLON,1,.EXTRA); 


'¢ 
Move leading blanks, if any. 


WANA UII RIP DINININININYD 2 2 OO OS OS 0 


PARWW—OODDNOU RWW ODO NOUE WN ODN 
OD OONAUES WN $$ O ODNOAULSWN 3 O OONAOULS WN (OCONAOULSWIOOOn 


POPIPONINIPONINIPINDNINIPINIDINININININININIPYPINIPYPIPININIPINININININININININININ 2 2 SS 
LAI NIPINPIPOPINIPIAIPINIPNINIPYINIPYINININIPIPIPIPUPOPIPYPYIPIPUNININIPINPINPIPYUPIPIPINUIPYPD 
OOOOO0O0O00 0000 O00 09 09 09 09 09 09 09 09 09 INI NII NIN NINO AAA AAAAAOUIN 


SOSOCOCOOSOCOOSOSOSOSOSOSOSOSOOOSOSOSSOSSSOOooooooooooooooooOoOOoOOOOOOCOOOOoOOO 


Be Se Se Se Se Oe Ge Se Be Be oe Be Se Se Se Ge ee Fe Ge BS Ge Se Se Se Se Ge SF Gs oe Ge FF Se Se SF Se Ge Be Gs Ge Se Fe Se Ge Se SESe es Se Se Se Sees Se Sete tees 


=PIPINIPIPPIPIPIPIPIPINPIPINYINAININININININININININ AWWW WIPononyd 


IF .*° .D_WIDTH = .DESCR COSCS$W_LENGTH] GTR 0 
FCB CFCBSA_RECORD_CUR] = CHSFILL (%C° *, .FIELD_WIDTH - .DESCR CDSCSW_LENGTH], .FCB CFCBSA_RECORD_CU 

37 + 

38 ! Now move value 

i 1 “i 
34¢ 308 FCB CFCBSA_RECORD_CUR] = CHSMOVE (.DESCR CDSCS$W_LENGTH], .DESCR CDSCSA_POINTER], .FCB CFCBSA_RECORD_CUR] 
4 304 + 

4a 305 ! Call WRITE epilogue routine to move the last character written to the 

o? 308 user's buffer and to unlock the file variable. 

4 308 < 

“8 +4 PASSSEND_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCB)); 

3 13 RETURN; 

52 18 END; ! End of routine PAS$WRITE_UNSIGNED 


. a. as a oe a oe en a ee a [ 


| 
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1-002 PASSWRITE_UNSIGNED - urite unsigned integer to 12786871383 95:85:98 PASRTL  SREIPASURIUNS B92; 1 ne (35 


-TITLE PASSWRITE_UNSIGNED Write an unsigned integer 
DENT \1-002\ 


-PSECT _PASSCODE,NOWRT, SHR, PIC,2 
4C 55 21 00000 P.AAA: .ASCII \!UL\ 3 


| 
| 
| 
SEXTRN PASS$WRITEV_UNSIGNED 
XTRN PAS$$IO_HANDLER 
“EXTRN PASSSVACIDATE_PFV 
SEXTRN PASSSINIT WRITE 
SEXTRN PASS$S$SIGNAL, PASS$K_NEGWIDDIG 
SEXTRN SYSSFAO, PASSK_LINTOOLON 
SEXTRN PASSSEND_WRITE 
03FC 00000 ENTRY PASSURITE_UNSIGNED, Save R2,R3,R4,R5,R6,R7,-; 0144 
59 000000006 00 i 0002 MOV PASS$S$SIGNAL, R9 F 
SE 4 C2 00009 SUBL : 
E 04 0000C CLRL + ERROR_ADDR > 0195 
04 AE 7C OOO0E CLRQ UNWINB_ACT : 
6D 00B2 CF DE 00011 MOVAL 6%, (FP) ; 
04 6C 91 00016 CMPB_ ss (AP), «#4 : 0218 
04 1F 00019 BLSSU-1$ ; 
a3 10 AC DO 00018 MOVL § ERROR, ERROR_ADDR : 0220 
S68 04 AC DO OOO1F 1$: MOVL ‘ : 0222 
08 AE 56 DO 00023 MOVL 6, PFV_ADDR : 
000000006 00 16 00027 JSB PASSSVALIDATE_PFV : 0228 
04 AE 01 00 900¢b MOVL #1 T ; 0234 
000000006 00 16 00031 JSB PASSSINIT QRITE : 0240 
0C AC 05 00037 TSTL | TOTAL_WIDTH > 0246 
OA 18 OO03A BGEO : 
7E 04 0003C CLRL <=(SP) : 0248 
7E 006 8F 9A 0003E MOVZBL #PASS$K_NEGWIDDIG, -(SP) ; 
69 02 FB 9004¢ CALLS #2, PASSSSIGNAL ; 
14 AE O10E000C 8F DO B46 2$: MOVL  #17694732, DESCR + 0254 
18 AE MC AE 9E O04E MOVAB STRIN CR+4 : 0257 
OC AE 010E0003 8F 00 0005 MOVL 17694723, CTRSTR_DESCR : 0260 
10 AE 9F AF 9E 00058 MOVAB P.AAA, CTRSTR_DESCR+4 : 0261 
08 AC bb 9060 PUSHL INTEGER > 0266 
18 AE 9F 0006 PUSHAB DESCR ; 
1C AE 9F 00066 PUSHAB DESCR : 
18 AE 9F 00069 PUSHAB CTRSTR_DESCR ; 
000000006 99 04 FB 006 CALLS #4, SYSS$FAO ; | 
: Oc AC bo 00 MOVL TOTAL_WIDTH, FIELD_WIDTH : 0273 | 
q 14 AE 3C 9 7 MOVZWL DESCR: RB > 0274 
50 5 o9 9 078 MOVL  R8, INT DIGITS : 
50 52 00 N007E MOVL FIELD WIDTH, RO ; 0280 | 
58 50 D1 00081 CMPL = RO, RB ; 
Q 18 0084 BGEG  3$ ; 
39 39 DO 00089 38 ROVE. RO’ FLELD_WIDTH | 
50 38 EC 9 C1 0008C ADDL3 ROOCEEED “FIELD WIDTH, RO > 0284 


ee * 


Ba Be Ge Be Ge Be Ge Se Ge Se Se Se Gee Se Se Se Ge Se Se Ge Se Ge Se Ge Ge Fe Geese Fe Se Beas Fe Se Fe Se Se ee ee Fe Se Se ee Fe Se Se Se SeaseseSe se tse te tees 
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1-002 PASSWRITE_UNSIGNED = alte unsigned integer to 14- ~Sep- 1984 93: $5: 8 PASRTL.SRCJPASWRIUNS. 4 2:1 (3) 
50 FO A7 091 SUBL2 <-16(FCB), EXTRA : 
of fg a035 BLEQ 3; 0285 
DD 00097 PUSHL EXTRA : 0287 
1 0D 00099 PUSHL @# 3 
7E 006 F 9A 00098 MOVZBL #PASS$K BAT OCL ON. -(SP) : 
69 3 fe ORR kaye #3, PASSSSIGNA ; 
58 52 D1 SbAg 4$ CMPL FIELD_WIDTH, R8 3; 0294 
of 15 BRAg BLEQ é 
52 C2 QO0A SUBL Re. R2 ; 0296 
52 20 6E EC oY 2c ite MOVC #0, (SP), #32, R2, a-20(F CB) 5 
EC A? Bf D0 SOBs MOVL. 3, -20(FCB) ; 
EC B7 18 BE 58 28 000B6 5$ MOVC3 R8, @DESCR+4, a-20(F CB) 3; 0302 
EC A? 53 DO 000BC MOVL R3, - 3 
000000006 00 16 000c0 JSB PASSSEND_WRITE + 0309 
04 000C6 RET 3; 0313 
0000 000C7 6$ «WORD sexs, nothing 3; 0195 
50 08 aC 00 000C9 MOVL RO 3 
50 04 AO 00 OQ00CD MOVL 4(RO). RO é 
D8 AO 9F 00001 PUSHAB ERROR_ADDR ¢ 
DC AO YF 000D4 PUSHAB UNWIND ACT : 
EO AQ 9F 00007 PUSHAB PFV_ADDR : 
03 DD OOODA PUSHL a3 3 
5E DD 000DC PUSHL SP é 
7E 04 AC 7D QOODE MOVa 4(AP), -(SP) é 
00000000G 00 03 FB OO0E2 CALLS #3, PAS$$I0 HANDLER : 
04 O00E9 RET : 


314 
315 


; Routine Size: 234 bytes, Routine Base: _PASSCODE + 0003 
1 
1 !<BLF/PAGE> 


. 
° 
7 
e 
° 
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7 
o 
. 
° 
. 
° 
. 
o 
. 
. 
. 
e 
. 
2 
o 
e 
. 
a 
. 
* 
7 
- 
. 
. 
. 
. 
+ 
e 
o 
o 
© 
ca 
o 
a 
o 
D 
o 
e 
e 
° 
° 
2 
e 
. 
o 
a 
e 
. 
e 
. 
6 
° 
oe 
o 
e 
. 
cs 
. 
e 
° 
e 
> 
e 
. 
e 
. 
e 
. 
e 
a 
. 
7 
o 
° 
e 
* 
7 
. 
ce 
7 
a 
e 
. 
e 
. 
o 
. 
oe 
e 
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PASSWRITE_UNSIG Write an unsigned integer 1b-Se 1984 02:27: AX-11 Bliss-32 V4.0-74 P 8 F 
1-00 PASSWRITEV_UNSIGNED - Grite unsigned to string 132808= 138 95:85:98 PASRTL. RCIPASWRIUNS .6 231 se (4) | 1 


1 ZSBTTL "PASSWRITEV_UNSIGNED = Write unsigned to string’ 
GLOBAL ws hy PASSWRITEV_UNSIGNED ( 


NGTH: WORD, 
STRING_LINE: REF VECTOR C, WORD), 
VALUE, 

TOTAL.WIDTH: SIGNED, 
ERROR 
) : NOVALUE = 


! Maximum Length of string 
! String to write to 

' Value to write 

Total field width 


GOaaoouviviwi rw 


! Error unwind address 


Mn 


144 


i FUNCTIONAL DESCRIPTION: 
This procedure writes an un signed integer to the specified string. 
CALLING SEQUENCE: 


CALL _PASS$WRITEV_UNSIGNED (MAX_LENGTH.rw.v, STRING_LINE.wvt.r, 
VALUE.rlu.v, TOTAL_WIDTH.rl.v C, ERROR.j.rJ) 


4 ON NIN SN NINN INA AAAOAO 
NOUS WN OODONAUS WN "OOD ODNAUES WN" OOONO 


POPIPIPOPONPINININPYNIPININPYNIPONPONYNPPINPNUNPNY 


| 
| 
| 
| 
| 
STRING_LINE - A varying string to which the output will be appended. | 
| 
| 


a 

: se 

; 7 % 

3 0320 1 

; 0352 | 

3 0 : 1 

; 0324 1 

; 0325 1 

3 0326 1 

; 0327 1! 

$ 0328 1! 

; 0329 1! 

; 0330 1! 

; 0331 1! 

3 03 ¢ 1! 

; 03 1! 

; 0334 1! 

4 tte ! FORMAL PARAMETERS: 

; O3ee ' MAX_LENGTH - The maximum Length of STRING_LINE. 

3 0339 1! 

; 0340 1! 

3 . Oee4 } } VALUE - The unsigned integer to write. 

3 0348 ' TOTAL _WIDTH - The width of the field to write. 

; 2 0345 1! ERROR - Optional. If specified, the address to unwind to 

3 0346 1! in case of an error. 

: 28 0347 1! 

; 288 0348 1 =! IMPLICIT INPUTS: 

3; 289 0349 1! 

; 290 0350 1! NONE 

; 291 0351 1! 

; ef B32¢ 1 ! IMPLICIT OUTPUTS: 

: 2 03535 1! 

: 294 0354 1! NONE 
hs 295 0355 1! 

: 296 0356 1 ! ROUTINE VALUE: 

3; 297 0357 1! 

; 298 0358 1! NONE 

: $38 0328 1! 

: 300 360 1 ! SIDE EFFECTS: 

: 301 0361 1! | 
: 302 b3e§ 1! NONE 
; 303 0363 1! 
3; 304 0364 1 ! SIGNALLED ERRORS: 

s 305 0365 1! 
: 306 3308 | ! See PASSWRITE_UNSIGNED 

: 307 036 
; 308 0368 1 !-- 

3; 309 8 +4 1 

10 0 BEGIN 
: 11 0371 

: 12 0372 LOCAL 


'¢ 


a Set up ARG_LIST. 


a 
I 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
; 
2 
2 
2 
r4 
2 
2 
1 


PARADE LEE EE EEE SU aanonrone 


ARG_LIST [0] = 
0400 ARG-LIST [1] = Pe CPFVSR_PFV); 
41 0401 ARG_LIST @] = .VALUE; 
4@ ARG-LIST (3) = ‘TOTAL “WIDTH; 
44 1+ 
45 
ag j_PASSURITE UNSIGNED to call. 
48 
49 PASS$DO_WRITEV (PFV CPFVSR_PFV], 
20 PASSWRITE_UNSIGNED) ; 
32 RETURN; 
5 
54 END; 
a 
04 AE 7C 
6D 0039 CF ODE 
05 Bf 91 
4 if 
6E 14 AC b0 
08 AE 1C AE 3 
OC AE 03 OD 


E 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); 


ep-t9be 18:52:16 


13 

Se 

-$ 

ascal File Variable 
r ist 

n 

n 

n 


-32 V4.0-7 


Dd 
6- AX-11 BLli 1985 
4- SRCIPASWRIUNS. 3 2;1 


PASRTL. 


gument | 

able argument 
able argument 
able argument 


1 
ng 1 
' Pp 
' A 
if 
! € 
i € 


! Count of arguments 


' Enable error handler 


' Set unwind address 
' Set PFV address 


PASSURITE UNSIG Write an unsigned integer 
PASSWRITEV_UNSIGNED = Write unsigned to stri 

13 73 PFV: SPASSPFV_FIL ie E, 
14 8 74 ore LIST: VECTOR fet Ned. 
15 0375 V-ADDR: VOL E, 

16 0376 UNUIND ACT: VOLAT ILE, 

17 0377 ERROR_ADDR: VOLATILE; 

18 0378 

$38 0379 BUILTIN 

20 0380 ACTUALCOUNT; 

353 0382 ENABL 

358 $383 

$e peee 
5 0385 + 

26 0386 i Get ERROR parameter, if present. 
27 0387 ie 

28 0388 

$3 0389 i ACTUALCOUNT () GEQU 5 
0 0390 THEN 

31 0391 ERROR_ADDR = .ERROR; 

32 Bas 

33 039 PFV_ADDR = PFV CPFVSR_PFV); 

34 0394 

35 0395 

36 0396 

37 0397 

3 0398 
9 0399 


' Three arguments 
' PFV address 
} pos ined ed to write 


i Call PAS$$DO_WRITEV to do the work, giving it the address of 


»MAX_LENGTH, STRING_LINE COJ, ARG_LIST, 


! End of routine PAS$SWRITEV_UNSIGNED 


EXTRN PAS$$DO_WRITEV 

00000 SENTRY PASSURITEV. UNSIGNED, Save R2,R3,R4,R5,R6 
9002 SUBL2 

000 CLRL ERROR: ADDR 

0007 CLRO eee) ACT 

000A MOVAL 

O00F CMPB cab) | 

012 BLSSU 

0014 MOVL ERROR, ERROR_ADDR 
0018 1$: MOVAB PFV, PFV_ADDR 
00010 MOVL #3, ARG_CIST 


13 
PASSWRITE_UNSIG Write an unsigned integer if. ch) 9 7:0 AX-11 Bliss-32 V4.0- 
1-002 PASSWRITEV_UNSIGNED = Write unsigned to string 14- ce 198 95: g5:9 PASRTL.SRCJPASWRIUNS. a>, :1 
10 AE 1C AE 9E 00021 MOVAB PFV, ARG_LIST+4 
14 AE o¢ AC 7D 99 4 MOVQ VALUE, ARG LIST+8 
5 FEE? CF 9E 000 B MOVAB PASS$WRITE -ONSIGNED, R5 
54 OC AE 9E 000 MOVAB ARG_LIST, 
26 1¢ «(AE 4 0034 MOVAB R 
; 08 AC p 0038 MOVL CT RING LINE, R3 
2 4 AC 3¢ 0003C¢ MOVZWL MAX_LENGTH, R2 
000000006 00 16 00040 JSB PASS$DO_WRITEV 
04 0046 RET 
0000 00047 2$: «WORD gevs,n noshing 
50 08 AC DO 00049 MOVL RO 
50 04 AO oO 9904p MOVL eth). RO 
D4 AO OF 51 PUSHAB ERROR ADDR 
D8 AO 9F 90054 PUSHAB UNWIND ACT 
DC AO 9F 00057 PUSHAB PFV_ADDR 
03 DD OO05A PUSHL #3 
5E bb 0005¢ PUSHL SP 
7E 06 AC 7D 0005E MOVQ 4 (AP), <(SP) 
000000006 00 03 FB 0006 CALLS #3, PAS$$10_ HANDLER 
04 00069 RET 
; Routine Size: 106 bytes, Routine Base: _PASSCODE + O0ED 


355 0415 1 
356 0416 1 !<BLF/PAGE> 


Be Se Fe Se Se Se Fe Ge Fe Ge Be Fe Se Ge Fe Ge Ge Se Se Be 


F 13 
PASSWRITE_UNSIG Write an unsigned integer 16-Sep-19 AX-11 Bliss-32 V4.0- 
1-002 PASSWRITEV_UNSIGNED - drite unsigned to string 14- =Sep- 1984 93: 5 9 PASRTL.SRCJPASWRIUNS. B82: 37 


: 338 gle 1 END ! End of module PASS$WRITE_UNSIGNED 
0419 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
PASSCODE 343 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


ee ae Se ens SYEROLE eocccecs Pages Processing 
: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 7 0 581 00:01.0 
: ~$255$DUA28:CPASRTL.OBJJPAS SLIB.L 32;1 427 96 22 33 00:00.4 
$ COMMAND QUALIFIERS 


SLISS/CHECK CF LELD INITIAL .OPTIRIZE) /MOTRACE/L [Set 158s PASUR1UNS/08.)90B.)S 2PASURIUNS MSRC$:PASWRIUNS/UPDATE=(ENHS: PASWRIUNS 


361 04 
34 


Size: code + 3 data bytes 
Run Time: 00:08.3 
Elapsed Time: R: 3 


Lines/CPU Min: 
Lexemes/CPU-Min: 16280 
Memory Used: 101 pages 
Compi.cation Complete 
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